home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / InsideBa1994 / InsideBasic-94 / IB 94 / Simple DB / Simple DB.MAIN < prev    next >
Encoding:
Text File  |  1993-10-23  |  5.1 KB  |  134 lines  |  [TEXT/ZBAS]
  1. '===============================================================================
  2. '=                     Copyright 1992 Staz™ Software, Inc.                     =
  3. '=                             All rights reserved                             =
  4. '=                          "Project.MAIN" from PG:PRO                         =
  5. '===============================================================================
  6. RESOURCES "Simple DB.RSRC","APPLHOME"
  7. COMPILE 1,_MacsbugLabels_strResource_caseInsensitive'set by PG:PRO
  8. WINDOW OFF : WIDTH -2                             'standard
  9. '
  10. '{PG3} <-- PG PRO uses these as a source code markers.  Do not remove them.
  11. GLOBALS "PG PRO.GLBL"
  12. GLOBALS "Simple DB.GLBL"
  13. END GLOBALS
  14. EDIT = 2'set EDIT/PICTURE FIELD border
  15. INCLUDE "PG PRO.INCL"
  16. SEGMENT
  17. INCLUDE "Simple DB.INCL"
  18. SEGMENT 20480'segment break if > 20K
  19. INCLUDE "Edit Menu.FLTR"
  20. INCLUDE "Return.FLTR"
  21. INCLUDE "Key.FLTR"
  22. '{PG4}
  23. '===============================================================================
  24. "@Filters":SEGMENT:                REM Use the area below for additional filters
  25. '-------------------------------------------------------------------------------
  26. INCLUDE "wData.FLTR"
  27. INCLUDE "wList.FLTR"
  28. '===============================================================================
  29. SELECT gAction                                    'primary branch
  30.     '---------------------------------------------------------------------------
  31.   CASE _mainAction   :GOSUB "Action:Main"         'appl level events
  32.   CASE _menuAction   :GOSUB "Action:Menu"         'menu actions
  33.   CASE _buttonAction :GOSUB "Action:Button"       'button clicked
  34.   CASE _mouseAction  :GOSUB "Action:Mouse"        'mouse down in whichClass
  35.   CASE _windowAction :GOSUB "Action:Window"       'window actions
  36.   CASE _fieldAction  :GOSUB "Action:Field"        'edit fields actions
  37.   CASE _otherAction  :GOSUB "Action:Other"        'low level events
  38. END SELECT:RETURN                                 'end of primary selection
  39. '===============================================================================
  40. "@Includes":SEGMENT:         REM Use the area below for additional ".INCL" files
  41. '-------------------------------------------------------------------------------
  42.  
  43. '===============================================================================
  44. "@Long Functions":SEGMENT:       REM Put your application's long functions below
  45. '-------------------------------------------------------------------------------
  46.  
  47. '===============================================================================
  48. "Action:Main"
  49. '-------------------------------------------------------------------------------
  50. SELECT gSubAction
  51.   CASE _mainStart
  52.     '
  53.   CASE _mainOpen
  54.   CASE _mainSave
  55.   CASE _mainPrint
  56.   CASE _mainTimer
  57.   CASE _mainShutDown
  58. END SELECT:RETURN
  59. '===============================================================================
  60. "Action:Menu"
  61. '-------------------------------------------------------------------------------
  62. SELECT gWhichMenu
  63.   CASE _appleResMenu
  64.     
  65. END SELECT:RETURN
  66. '===============================================================================
  67. "Action:Button"
  68. '-------------------------------------------------------------------------------
  69. SELECT gWhichClass
  70.     
  71. END SELECT:RETURN
  72. '===============================================================================
  73. "Action:Mouse"
  74. '-------------------------------------------------------------------------------
  75. SELECT gWhichClass
  76.     
  77. END SELECT:RETURN
  78. '===============================================================================
  79. "Action:Window"
  80. '-------------------------------------------------------------------------------
  81. SELECT gSubAction
  82.   CASE _windowClose
  83.   CASE _windowUpdate
  84.   CASE _windowActivate
  85.   CASE _windowDeactivate
  86.   CASE _windowSized
  87.   CASE _windowMoved
  88.   CASE _windowClicked
  89.   CASE _windowWillZoomOut
  90.   CASE _windowWillZoomIn
  91.   CASE _windowWillGrow
  92.   CASE _windowDocWillMove
  93. END SELECT:RETURN
  94. '===============================================================================
  95. "Action:Field"
  96. '-------------------------------------------------------------------------------
  97. SELECT gSubAction
  98.   CASE _fieldActivate
  99.   CASE _fieldChanging
  100.   CASE _fieldKeyPressed
  101.   CASE _fieldReturn
  102.   CASE _fieldTab
  103.   CASE _fieldShiftTab
  104.   CASE _fieldClear
  105.   CASE _fieldLeft
  106.   CASE _fieldRight
  107.   CASE _fieldUp
  108.   CASE _fieldDown
  109.   CASE _fieldClicked
  110. END SELECT:RETURN
  111. '===============================================================================
  112. "Action:Other"
  113. '-------------------------------------------------------------------------------
  114. SELECT gSubAction
  115.   CASE _otherDisk:gAction=0    :    REM Prevents SFOpen dialog on disk insert
  116.   CASE _otherSwitch
  117.   CASE _otherScrap
  118.   CASE _otherCursor
  119.   CASE _otherKeyPressed
  120.   CASE _otherBeforeMenu
  121.   CASE _otherNullEvent
  122.   CASE _otherFilterEvent
  123.   CASE _otherUser
  124.   CASE _otherUserInit
  125.   CASE _otherUserUpdate
  126.   CASE _otherUserClick
  127.   CASE _otherUserDispose
  128. END SELECT:RETURN
  129. '===============================================================================
  130. "@Subroutines":SEGMENT:             REM Put your application's subroutines below
  131. '-------------------------------------------------------------------------------
  132.  
  133. '===============================================================================
  134.